home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / m2 / m2error.lha / ResetM2Error.ged < prev   
Encoding:
Text File  |  1994-03-14  |  1.3 KB  |  44 lines
  1. /* $VER: ResetM2Error.ged V 0.9 © 1994 Fin Schuppenhauer       */
  2. /* 14. März 1994                                               */
  3. /* Setzt den Fehlerzähler zurück auf 0.                        */
  4. /* Dieses Skript ist nur sinnvoll mit dem dazugehörigen Skript */
  5. /* M2Error.ged                                                 */
  6.  
  7. OPTIONS RESULTS                             /* enable return codes     */
  8.  
  9. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  10.     address 'GOLDED.1'
  11.  
  12. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  13. OPTIONS FAILAT 6                            /* ignore warnings         */
  14. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  15.  
  16.  
  17. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  18.  
  19.  
  20. 'QUERY DOC VAR FILENAME'
  21. 'QUERY CAT'
  22. isGerman = (result = "deutsch")
  23. if exists(filename'E') then
  24.    call setclip('nextm2err', '0')
  25. else do
  26.    if isGerman then
  27.       'REQUEST BODY="Keine Fehlerdatei gefunden!" BUTTON=Weiter'
  28.    else do
  29.       'REQUEST BODY="No errorfile found!" BUTTON=Ok.'
  30.    end
  31. end
  32.  
  33.  
  34. /* ---------------------------- END OF YOUR CODE --------------------- */
  35.  
  36. 'UNLOCK' /* VERY important: unlock GUI */
  37. EXIT
  38.  
  39. SYNTAX:
  40.  
  41. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  42. 'UNLOCK'
  43. EXIT
  44.